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ABSTRACT 

This report describes an interpretive program which 
will allow programs written for a 2000-word I.B.M. 650 
with indexing registers and automatic floating-decimal 
device to be run (possibly with minor changes) on a basic 
4000-word 650. Because of the low relative speed of the 
interpreter (the minimum estimated ratio is about 20/1) , 
its use is recommended only with programs requiring a 
short time when run as originally intended. Even with 
this limitation, it is expected that many useful "one-shot" 
library routines will become available to users of the 
4000 -word machine without expenditure of additional pro- 
gramming time. 
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METHOD 

The program has been coded in the SOAP II language 
and assembled by SOAP IIA-4000 in locations 2000-3011 and 
3999. The attempt has been made in the case of each 
simulated operation to duplicate the numerical result which 
would have been obtained on the 2000-word machine (see I.B.M. 
650 Data Processing Bulletin G24-5003-0 6/59 for a descrip- 
tion of these operations) . It can therefore be expected 
that test results given in a program write-up will be 
duplicated identically by running in the interpretive mode. 

RESTRICTIONS 

1. The drum should be free of blank cells . 

This restriction is necessary since the contents of 
the address given by the data portion of the instruction 
are examined regardless of whether this portion has any 
meaning in the program as an address (i.e., it has none in 
the case of a shift instruction) . One simple way to comply 
with this restriction is to clear the drum before running, 
and then to make sure that any blank positions on the input 
cards are filled with zeros. 

2. No illegal address should appear in an instruction being 
executed in the interpre tive mode. 

This will apply only to the instruction address portion 
of a reading instruction intended for operation on load 
cards, which will usually be set in the console switches. 
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If it is necessary to violate this restriction, a stop will 
occur at SI1(01 2138 2138) when the interpreter examines 
the illegal address. After verifying that the offending 
instruction is the one in the switches, the program can be 
restarted at EMI (2100) . 

3. Load cards cannot be used directly in the interpretive 
mode, nor can they be used to transfer control to parts of 
the program which must be executed in the interpretive mode . 

This restriction arises because the automatic branch 
caused by the "load" feature of the 650 interferes with the 
control of the program by the interpreter. Load cards can 
be used, however, if revised as follows: 

The first location to which control is transferred 
(given by the data address of the read instruction) must 
read 65 X-, 2115, where X., contains the location of the next 
program instruction to be executed (00 0000 X 2 ) . 

Thus in the case of a conventional "transfer" card 

+ + 

which has 00 0000 1234 as its first word and is read by 

the instruction 70 19 51 9999, the revised card becomes: 

+ + 

word 1: 65 1952 2115 

+ 
word 2: 00 0000 1234 

If the load card scheme is more complex than this, some 
other method must be devised to adhere to the general rules 

given above. 

It should be noted that a failure to observe one of 
these restrictions is not dangerous in the sense that it 
can result in a machine stop, but not in erroneous calculations 
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It would be advisable, however, to examine the program for 
possible violations prior to running in order to conserve 
machine time . 

INSTRUCTIONS FOR USE 

1. Insert a standard 80-80 input-output panel in the 
533 and load the interpreter (70 1951 1950 in the switches; 
press computer reset, program start, read feed start, 

end of file) . 

2. Change the console switch settings and the input- 
output panel if necessary for loading the program. If the 
loading procedure does not depend on the features being 
simulated, it can be carried out as under normal running 
conditions with the exception that any load cards which 
transfer control to the program must be revised as described 
above. If the loading procedure uses either the indexing 
registers or the automatic floating-decimal arithmetic, then 
loading must be done in the interpretive mode (described in 
section 3 below) . In this case also, load cards which transfer 
control to the program must be revised. 

3. To start computing in the interpretive mode manually 
(this may be necessary before or after loading as explained 
in section 2 above, or not at all if the program is normally 
initiated by a "transfer" card) , read the address of the 
first instruction into BEGIN (3999) in the form 00 0000 XXXX 
and start the program manually at START (3000) . If the first 
instruction is to be taken from the switches, then 00 0000 8000 
must be read into BEGIN. 
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PROGRAMMED STOPS 

The instruction in parentheses will be found in the 
program register. The correspondence with the original 
program can be established by using the table of pseudo- 
registers to reconstruct the instruction currently being 
interpreted and examining the operands. 



1. SI1 (01 2138 2138) 



Illegal instruction address 



2. SD1 (01 2136 2136) 



Illegal data address 



3. 2001 (01 3009 2113) 



Programmed stop in original 
program (press program start 
button to continue) . 



4. 20XX (01 20XX 20XX) 



Illegal operation code 



5. S341 (01 2378 2378) 



Zero divisor. 



6. S342 (01 2216 2216) 



Mantissa of the divisor has 
more leading zeros than mantissa 
of the dividend. 
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Master Flow Chart 



START , 

set c(INSTR) = c (BEGIN) I 

V _ 



reset pseudo-registers 



UNPCK 



_i i- 



unpack instruction 
[address given by last 
four digits of c(INSTR)] 



INDEX 



index instruction address 
(see detail 1) 



DADEX 



index data address 
(see detail 2) 



OP 



_t 



execute operation, 

storing results in 

pseudo-registers 
(see details 3-7) 
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DETAIL 1. Instruction Address Indexing Routine 



INDEX 

c ( INSTR) < 2000? | 
no yes 



1 



c( INSTR) <4000? 
yes no 



EI 2 ^ 

c ( INSTR) -4000+c(IRA) —■ 8002 \ 



c(INSTR)<6000 i : 



yes 



EI3 ____jt_T 

1 c ( INSTR) -6000+c(IRB) -» 3002 | 



c (INSTR) <8000? 



yes 



ei4 £_r 

c ( INSTR) -8000+c( IRC) ->- 800 2 | 



I stop I 



EI5 L 

1 add 1 . 2 x 10 4 | 



last four digits ->■ INSTR 



o(INSTR) < 2000? 
no yes 

_A != 



c ( INSTR) < 8000? 
yes no 



* V 



Ell . . 

| c( INSTR) = 8000?] 

yes 



1 



I c ( INSTR) " = 8001? I 
no yes 

, EI6>k 

1 DISTR -» 8001 | 



1 c( INSTR) = 8002?] 
no yes 



EI 



| LOWER ->• 8001 



1 c( INSTR) = 8003?~| 
no yes 



EI8 . 

| UPPER -» 8001 1 



I c (INSTR) = 8005?] 



yes 

EI9 * 
I IRA -» 8001 I 



c (INSTR) = 8006?| 
no yes 

EI10 V 

| IRB -» 80017] 



c( INSTR) = 8007?! 



yes 

EI11Y , 

I IRC -» 8001 | 



EI12 V 

1 store ->• INSTR." 



EMI ^ \f 



out 
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DETAIL 2. Data Address Indexing Routine 

DADEX 



c(DATA) <2000? 
no yes 



A 



ED 2 



£ 



c(DATA) < 40Q0? 

yes no 
I 



c(DATA)-4000+c(IRA) --S002 



1 c(DATA) <6000? 
yes no 



ED 3 >T . 

c(DATA)-6000+c(IRB) -+8002| 



c( DATA)-' 8000? 
yes no 



ED 4 y' 

"c (DATA) -8000+c( IRC) -> 8002~| 



ED5 Y 



add 1.2 x 10 



niddle four digits -* DATA 



I 



c (DATA) - ; 2000? 



no ye s 



c(DATA)<8000? 
yes no 



EDI 



I 



c(DATA) = 8000: 
no yes 



ED14 



i. 



8000 —■ 8002 



c(DATA) = 8001? I ' 

no yes 

ED6 y 

1 DISTR -*■ 8002 | 

— * ' ■ L__ 

c(DATA) = 8002? 1 



no yes 
ED 7 






LOWER -+ 800 2 



[ c(DATA) = 8003? 1 
no yes 



ED8y 

UPPER -» 300 2 I 



c(DATA) = 800 5? | 
yes 

ED9 y 

_ I IRA -* 8002 I 

* ' | L . 

c(DATA) = 8006? | 
yes 

ED10 V 
flRB -*■ 800 2 1 



SPIV \f 



1 c(DATA) = 800 7? 

I yes 



stop 



ED11 



1 IRC -*- 800 2 



EDi 3 y y 



c(DATA) -* 800 2 



ED12 V 

| store -* DATA | 



EM2 y y 



out 



-10- 



DETAIL 3. Floating-Decimal Addition Routine 



2002 



2032 



2037 



c(CDATA) -► 800 2 c(CDATA) -* 8002 c(CDATA) 



E022 >TV V 



VV V V 



c(8001) -+ DISTR 



2038 



8002 



c ( CDATA) 



8002 



unpack c(8002) 

mantissa ->• T021 
characteristic -+ T022 



V 



unpack c (UPPER) 
mantissa -»• TO 2 3 
characteristic --*■ TO 2 4 



E023 



perform floating-decimal addition (see detail 3.1) 
mantissa -► T025 characteristic -* T026 



sum ^ 



E02I0 



I 



c(OP) = 2002? 



yes 



no 



E02I1 



NORM V 



normalize 



± 



underflow? 



no 



yes 



JLE ?2I5y 



packed result-*- UPPER force overflow 



zero -»• LOWER 



UNPCK T 



V^f 



out 



sum = 
E029 T 



zero 
zero 



UPPER 
LOWER 
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DETAIL3.1 Floating-Decimal Addition 



E023 




n = c(T022)| - 


c(T024)| 


V 



n < 0? 



yes 



n > 8? 



V 


E024 




c (UPPER) -+ DISTR 




V 






n < -8? 





yes 



c(T021) 

|c(T022) 



T025 

■*• TO 26 



E026V 



no 



E025 



yes 



jc(T022)| -»■ T026 I |c(T024)| -+ T026 



shift |c(T023)| right 
n places 



c(T023) 

c(T024)' 



T025 
+ T026 



shift |c(T021)| right 
]n| places 



add c(T021) 



add c(T023) 



~E027^ >|r 
| overflow? '| 
yes no 



E028 



i 



shift right 3 and round 



shift left 2 



c(8002) -*■ T025 




> 


f 




c(T026)+l -+ T026 




V 






overflow? 



'I- 




| shift right 2 


and round 


V 


c(8002) = 


= 0? 


no 

1 


yes 
E029V 


shift left 2 


| out | 


V 




overflow? 





yes no 



c(8002) -* T025 



yes no 



E02I5 T 
| out | 



E02ioy yy yf 

I out 
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DETAIL 4. Floating-Decimal Multiplication Routine 



E391 



2039 



c(CDATA) -► 800 2 



c(8001) -► DISTR 



unpack c(8002) 
mantissa — ► T021 
characteristic -* T022 



mantissa -^ 

v 



mantissa = 



unpack c (UPPER) 
mantissa — ► T023 
characteristic -»■ T024 



mantissa ^ 



mantissa = 



perform floating-decimal multiplication 

(see detail 4.1) mantissa ->■ T025 characteristic 
product ^ product = 



T026 



NORM 



normalize 



EQ29 T 

I out 
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D ETAIL 4.1 Floating-Decimal Multiplication 



E391 



c(T022)| + |c(T024)| -50 -* T026 



overflow? 



yes 



no 

1 



underflow? 



yes 



no 

A. 



multiply: c(T021) x c(T023) 



shift right 5 




V 




c(8003) 


= 0? 



yes 



c(8002) -*■ T391 



c(T026)-l — T026 



underflow? 



yes 



no 

1 



shift c(T391) left 1 



E392 V 



shift right 3 and round 



E393 V 



c(8002, 8003) = 0? 
yes no 



E029 V 



out 



shift left 2 



overflow? 



yes 



no 



shift right 1 



I 





c(8002) -»■ T025 




> 


f 


c(T026)+l -+ T026 




> 


r 




overflow? 



E394 V 



c(8002) -+ T025 



yes 



E02I5Y 
out 



NORMY Y 
normalize 
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DETAIL 5. Floating-Decimal Division Routine 



2034 



c(CDATA) -► 800 2 




V 


c(8001) -+ DISTR 




V 




unpack c(8002) 
mantissa -* T021 
characteristic -*■ T022 



mantissa ^ 



mantissa = 





f 


S341 V 


> 


stop | 


unpack c (UPPER) 




mantissa-^T02 3 


. 


characteristic — ► 


T024 



mantii 


3sa ^ 


mantissa = 
E029 V 




| out | 


E341 V 


perform floating-decimal division (see detail 5.1) 


mantissa — ► T025 characteristic — ► T026 











I normalize | 
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DETAIL 5.1 Floating-Decimal Division 



E341 



shift c(T021) left and count 
c(8002) -+ T341 



shift c(T023) left and count 



1 



lc(T34 1)l > |c(8002)| 

" yes 



no 



S342 



i 



stop 



E342 



ic(T 023)l £ jc(T021)i| 

ye s 



'c(T024)l-lc(T022")l+50 -> T026J ||c(T024)l - [ c (T022)l +51 -> T026 



overflow? 



overflow? 



yes 



E02I5 V 
| out | 



no 



yes 



underflow? 



yes 



no 



no 



underflow? 



yes 



no 



E343i 



shift c(T023) 
right 1 



£ 



*. .* c(TQ23) 
divide: c(T021) 



£ 



shift right 2 a nd round j 



E393'_ 

| out | 
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DETAIL 6. Execution of a Basic 650 Arithmetic Operation 

Q= c (LOWER) 
R= c (UPPER) 



OP 



Q x R < 0? 



REST 



yes 

v 



no 



compute : 



-1 
Q(-lRl-l x 10 ) + R 



- |R| -1 x 10 



rlO 



1 



R -h. 8003 
Q -* 300 2 



I 



c(DlSTR) -* 8001 



execute operation 



c(8001) -*■ DISTR 
c(8002) -* LOWER 
c(8003) -* UPPER 

UNPCK V 

out 
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DETAIL 7. Bvecutio" ^ *" Arithmetic Indexing Register 
O peration 



OP 



c(DATA) ^ 2000? 1 



yes no 



last four digits of CDATA - 8002 



-4 



c(DATA) x 10 -+ 8002 



A 



last four digits (with sign) of [iR + c(8002)] -> IR 



UNPCK ▼ 
( out J 
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